/* atomic.c -- implement shared_ptr spin lock */
#include <yvals.h>

#include <intrin.h>
 #pragma warning(disable: 4793)

		/* SPIN LOCK FOR shared_ptr ATOMIC OPERATIONS */
volatile long _Shared_ptr_flag;

_CRTIMP2_PURE void __cdecl _Lock_shared_ptr_spin_lock()
	{	/* spin until _Shared_ptr_flag successfully set */
  #ifdef _M_ARM
	while (_InterlockedExchange_acq(&_Shared_ptr_flag, 1))
		__yield();
  #else /* _M_ARM */
	while (_interlockedbittestandset(&_Shared_ptr_flag, 0))	/* set bit 0 */
		;
  #endif /* _M_ARM */
	}

_CRTIMP2_PURE void __cdecl _Unlock_shared_ptr_spin_lock()
	{	/* release previously obtained lock */
  #ifdef _M_ARM
	__dmb(_ARM_BARRIER_ISH);
	__iso_volatile_store32((volatile int *) &_Shared_ptr_flag, 0);
  #else /* _M_ARM */
	_interlockedbittestandreset(&_Shared_ptr_flag, 0);	/* reset bit 0 */
  #endif /* _M_ARM */
	}

/*
 * Copyright (c) by P.J. Plauger. All rights reserved.
 * Consult your license regarding permissions and restrictions.
V6.50:0009 */
